DEFINITION MODULE FileCommon;
(*      File name: FileCommon.def                               *)
(*      Creation : March, 1985                                  *)
(*      Function : Common File structers and info               *)
(*      By       : Stan Osborne                                 *)
(*                                                              *)
(*
*    Copyright (c) 1985,1986,1987,1988,1989 by
*    ana-systems, Foster City, California.
*    All Rights Reserved.
*
*    This software is furnished under a license and may be used and copied
*    only  in accordance with  the  terms  of  such  license and  with the
*    inclusion of the above copyright notice.  This software or  any other
*    copies thereof may not be provided or otherwise made available to any
*    other  person.   No title to and ownership of the  software is  herby
*    transferred.
*
*    The information in this software is  subject to change without notice
*    and  should  not be construed as a commitment by ana-systems.   No
*    warranty is implied or expressed.
*
*    SCCID  = "1.3    11/16/87"; 
*)
(*      History of modifcation                                  *)
(*      Date            Who             Why                     *)
(*                                                              *)
FROM StandardIO IMPORT EchoMode, LogMode;
FROM Files IMPORT File; 
FROM SYSTEM IMPORT ADDRESS;

EXPORT QUALIFIED FatalFileError, Input, Output, Log, 
                 STDLog, STDInput, STDOutput,
                 Echo, Logging, FileList, OpenList, 
                 FreeDescriptors, NextLun;

TYPE
     FileList = RECORD
                     Head, Tail : File;
                END;

VAR
    Input, Output, Log,
    STDInput, STDOutput, STDLog : File;
    Echo : EchoMode;
    Logging : LogMode;

    OpenList, FreeDescriptors : FileList;       (* Ordered Lists *)
    NextLun : CARDINAL;

PROCEDURE FatalFileError ( VAR module    : ARRAY OF CHAR;
                           VAR procedure : ARRAY OF CHAR );

END FileCommon.
